home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / basic / fglqbx10.zip / 10-06.BAS < prev    next >
BASIC Source File  |  1991-06-07  |  709b  |  42 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. REM initialize the video environment
  6.  
  7. IF FGtestmode(13,3) = 0 THEN
  8.    PRINT "This program requires EGA."
  9.    STOP
  10. END IF
  11. OldMode = FGgetmode
  12. FGsetmode 13
  13.  
  14. REM draw the background on page two
  15.  
  16. FGsetpage 2
  17. FGsetcolor 1
  18. FGrect 0, 319, 0, 199
  19. FGsetcolor 15
  20. FGmove 160, 100
  21. FGellipse 20, 20
  22.  
  23. REM slide the object across the screen
  24.  
  25. Hidden = 1
  26. FGsetcolor 10
  27. FOR X = -10 TO 316 STEP 4
  28.    FGsetpage Hidden
  29.    FGtransfer 0, 319, 0, 199, 0, 199, 2, Hidden
  30.    FGclprect X, X+19, 96, 105
  31.    FGsetvpage Hidden
  32.    Hidden = 1 - Hidden
  33.    FGwaitfor 1
  34. NEXT
  35.  
  36. REM restore the original video mode and return to DOS
  37.  
  38. FGsetmode OldMode
  39. FGreset
  40.  
  41. END
  42.